home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 January / macformat46.iso / Shareware Plus / Applications / Charting Coach / Charting Coach V2.0sw / Charting Coach V2.DXR / 00128.ls < prev    next >
Encoding:
Text File  |  1996-10-13  |  490 b   |  19 lines
  1. on mouseUp
  2.   global stamp, mucus, candidateStamp
  3.   if (candidateStamp = 4) or (candidateStamp = 5) then
  4.     cursor(0)
  5.     alert("Even though mucus may change or diminish, if there is a wet or lubricated sensation, choose the White Baby stamp and the Sensation stamp.")
  6.     append(relations, 0)
  7.     append(stamp, 3)
  8.     append(mucus, 2)
  9.     showDays()
  10.     setupDayBook()
  11.   else
  12.     if candidateStamp = 3 then
  13.       resetpeak()
  14.       go("chart mucus")
  15.       cursor(0)
  16.     end if
  17.   end if
  18. end
  19.